Celestin Apprentice 4

home *** CD-ROM | disk | FTP | other *** search

/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler8.Obj < prev next >

Wrap

Text File | 1995-08-14 | 12.7 KB | 21 lines | [TEXT/.Ob4]

¯6E ˇƒ X Qÿ6“Ò\Kepler8Ç FŒXì"Ô¿Ç° † ”ÉNewRectIntersect”NewCircleIntersect†NewAttrRect NewEllipseIntersectNewFilledCircle ÑÖ;‚ÜDisplay"…}nMath6e∏uFiles<ÒÇKeplerPorts;‚WêFonts6–çÜKeplerGraphs6– µKeplerFrames2˘úfIn2ˆßæTextsÜˇˇÏˇ?˛1ˇˇˆÌˆ ˇ˝€˜ˇ?˝dˇ˝ˇ>¸ ˜p˜QˆÊˆ‚áC0C0ÄC0àøaˇÏî!ˇ∞;·8;√;§;Ö;f|ûË@‰≥‹≥ªC‡≥º≥€Ä!ªaˇÏO‡ |¶øˇ‡9Åˇ–Hêî!ˇê;·8êA;√ûÄ~ÉÄÉÑûÄæÖÄ≈Ü®‰©}'B}=pûÅ^äÅjãûÅûåÄlÉ®ã®£|ƒ*|‹pûÄ˛áÅà©(H@˙PûÅ^äÅjã©ãú`@˛0û≥æûûÄ~ÉÄÉÑ®§∞æC‡ûÄﬁÜÄÊá©}=@,âAÊûÅ^äÅjã©ã||`ldÄêÇˇº»"ˇ∏»Bˇ∞¸a(ûÄæÖÄ≈Ü®Ê}8m Äë"ˇº»Çˇ∏»¢ˇ∞¸ƒ((Ô„0$ûÅ^äÅjã©ãËA˙¸‡˙ûÄ~ÉÄÉÑ®§|‹(l«Äê‚ˇº…ˇ∏…"ˇ∞˝HH(ûÅàÅ(â©I}}PmlÄëÇˇº…bˇ∏…Çˇ∞˝´`(Ï h$¸ ˇá@˝åûÄ~ÉÄÉÑ®§|Ö‡@‰$ûÄﬁÜÄÊá©‡A¯DûÅ>âÅIä©jã‡@˝®ûÅûåÄlÉ®É|Ñ‡@ÂàûûÄæÖÄ≈Ü®Ê∞˛ûûÅàÅ(â©I}|PmlÄëÇˇº»Bˇ∏»bˇ∞¸Ç(Ï§¯$¸¿éˇ¿Lˇ‡L»‚ˇ®˝(*Ÿ¸5é®b|ù∞ûC‡ÑûûÄæÖÄ≈Ü®Ê∞˛ûûÅàÅ(â©I}|PmlÄëÇˇº…"ˇ∏…Bˇ∞˝iP(Ìã¯$˝†éˇ¿Lˇ‡L»ˇ®¸ `*ÿ"¸mé®b|ù∞ûC‡|ûÄæÖÄ≈Ü®Ê}8/A˙åûÅ>âÅIä©jãË@¸$ûÅûåÄlÉ®É|ÑËA‰DûÄæÖÄ≈Ü®ÊË@˘®ûÅàÅ(â©IäË@˝àûûÅ~ãÅãå®l∞~ûûÄûÑÄ§Ö®≈|˝0lËÄëˇº»Bˇ∏»bˇ∞¸Ç(Ï§Ú¸¿éˇ¿Lˇ‡L»‚ˇ®˝(*Ÿ¸5é©"}\J±^C‡ÑûûÅ~ãÅãå®l∞~ûûÄûÑÄ§Ö®≈|˝0lËÄëˇº…"ˇ∏…Bˇ∞˝iP(ÌãÚ˝†éˇ¿Lˇ‡L»ˇ®¸ `*ÿ"¸mé©"}\J±^C‡–û≥ûûÅ~ãÅãå®l|ÉË@‰$ûÄûÑÄ§Ö®≈ËA¯DûÄ˛áÅà©(âË@˝HûÅ^äÅjã©ã|åË@Â(ûûÄ~ÉÄÉÑ®§∞æC‡$ûûÄﬁÜÄÊá©±C‡–û≥æûÅ>âÅIä©j‡@¯$ûÅûåÄlÉ®ÉÑ‡A¸DûÄæÖÄ≈Ü®Ê|á‡@ÂHûÅàÅ(â©I ‡@˘(ûûÅ~ãÅãå®l∞~C‡$ûûÄûÑÄ§Ö®≈∞ﬁÄ@Ä!9Åˇ–H|¶ªˇ‡O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Ä‚ˇ‡©/àA¸ÄbˇÏÄBˇƒHÄA;√Å"ˇ‹ÄiˇÙÄBˇƒKˇ¯ÅÄAûê~ûÅ^ä9`±jûÅûå8lÄBˇ‡HÄAûÄ~É8cÄBˇ‡Kˇ¯1ÄAûÄûÑ8dÄBˇ‡Kˇ¯ÄA8~Ä£ˇ¸Äˇú| ¶ÄEˇ†O‡!ÄAÄ¬ˇ‡Äf8ûÄ„ˇ¸Äˇî| ¶ÄGˇòO‡!ÄAÅˇ‡Äh8ûÅ#ˇ¸Ä ˇt| ¶ÄIˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶øˇ‡9Åˇ–Hêî!ˇÄ;·8êA;√ûÅ^äÉ™ù´ΩûÅ~ãÉãú´úûÅûåÉlõ´{ûÄ~ÉÉCö´ZûÄûÑÉ$ô´9ûÄæÖÉò´|ù»@Ê ¿@˙û≥~û≥^C‡|›ÿ|˝ÿ}9÷}<–}\–}iQ÷}àZmÉÄêbˇº»Bˇ∏»bˇ∞¸Ç(|ù»|Ω»|ƒ)÷|¸¿}¿}'A÷}FJmKÄëbˇº»¢ˇ∏»¬ˇ∞¸Â0(Ï$8$ÄBˇÃHÄAˇ‡êû}ù»mÉÄêbˇº…ˇ∏…"ˇ∞˝HH(Ì≤˝Äéˇ¿Lˇ‡L…¢ˇ®¸ X*ÿ¸eé®Ç|Ω"∞æû|‹¿l«Äê‚ˇº»"ˇ∏»Bˇ∞¸a(ÏüÚ¸†éˇ¿Lˇ‡L»¬ˇ®¸Ê *ÿ‚¸-é©}<B±>ÄPÄ!9Åˇ–H|¶ªˇ‡O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿ÅBˇ‡©j/ãA¸Äbˇ¯ÄBˇƒKˇ¯iÄA;√ÅÇˇ‹ÄlˇÙÄBˇƒKˇıMÄAûê~ûÄ~É8Ä∞ÉûÄæÖ8eÄBˇ‡Kˇ˜˘ÄAûÄﬁÜ8fÄBˇ‡KˇÙ˝ÄAûÄ˛á8gÄBˇ‡KˇÙ·ÄA8~Åˇ¸Äˇú| ¶ÄHˇ†O‡!ÄAÅ"ˇ‡Äi8ûÅCˇ¸Ä ˇî| ¶ÄJˇòO‡!ÄAÅbˇ‡Äk8ûÅÉˇ¸Äˇt| ¶ÄLˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø!ˇ‰9Åˇ»Hêî!ˇÄ;·8êA;√ûÄ~ÉÄÉÑûÄæÖÄ≈Ü®‰©|á@@Â;`C‡;`ˇˇûÅ>âÅIäûÅ~ãÅãå®j®å @˘;@C‡;@ˇˇûÄæÖÄ≈ÜûÄ˛áÅà©&©HâPA˛‘ûÅ~ãÅãåûÄ~ÉÄÉÑ®¨®ƒ|Ö0AÊûÄ˛áÅàûÅ>âÅIä©j©à´`ΩÈ÷ûÄ~ÉÄÉÑûÄæÖÄ≈Ü®Ê©á@ú·÷ûÅ>âÅIäûÅ~ãÅãå®l®ä# o%Äê¢ˇº…ˇ∏…"ˇ∞˝HH(ûÄﬁÜÄÊáûÅàÅ(â©I©g}äXmÉÄêbˇº…bˇ∏…Çˇ∞˝´`(ÔÍh$ÔˇÚo§ÄêÇˇº»ˇ∏»"ˇ∞¸@(o•Äê¢ˇº»bˇ∏»Çˇ∞¸£ (oÜÄê¬ˇº»¬ˇ∏»‚ˇ∞˝8(Ì%G˙ÌBH$oáÄê‚ˇº…bˇ∏…Çˇ∞˝´`(Ô rû¸ êÄBˇÃKˇˆ9ÄA¸éˇ¿Lˇ‡L»Bˇ®¸b*ÿb¸é©};A÷ûÅ^äÅjã©ã|ib∞~ûÏ?≤ÄBˇÃKˇÒπÄA¸Äéˇ¿Lˇ‡L»¢ˇ®¸≈*ÿ¬¸%é®Ç|∫!÷ûÄﬁÜÄÊá©}%B±>C‡ÄûÅ^äÅjãûÅûåÄlÉ®É®´$(ûûÄﬁÜÄÊá}…÷©'}IB±^ûûÅ~ãÅãå®l∞~C‡ÄûûÄûÑÄ§Ö®≈∞ﬁûÄ˛áÅàûÅ>âÅIä©j©à+`ûûÄ~ÉÄÉÑ|∫…÷®ƒ|Ê*∞˛ÄPÄ!9Åˇ»H|¶ª!ˇ‰O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Åˇ‡©(/ A¯ÄbˇÙÄBˇƒKˇı5ÄA;√ÅBˇ‹ÄjˇÙÄBˇƒKˇÔ≈ÄAûê~ûÅ~ã9Ä±ãûÄ~É8cÄBˇ‡KˇÙ≈ÄAûÄûÑ8dÄBˇ‡KˇÔuÄAûÄæÖ8eÄBˇ‡KˇÔYÄAûÄﬁÜ8fÄBˇ‡KˇÔ=ÄA8~Ä„ˇ¸Äˇú| ¶ÄGˇ†O‡!ÄAÅˇ‡Äh8ûÅ#ˇ¸Ä ˇî| ¶ÄIˇòO‡!ÄAÅBˇ‡Äj8ûÅcˇ¸Äˇt| ¶ÄKˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû8æÄBˇ–HÄA8|8ùû8æÄBˇ–KˇÓiÄA8|8ùû8æÄBˇ–KˇÓMÄA8|8ùû8æÄBˇ–KˇÓ1ÄA8|8ùû8æ ÄBˇ–KˇÓÄA8~8ú8ΩÅÇˇ‹ÄÃˇÙÄˇ¨| ¶ÄFˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû®æÄBˇ–HÄA8|8ùû®æÄBˇ–KˇÌ}ÄA8|8ùû®æÄBˇ–KˇÌaÄA8|8ùû®æÄBˇ–KˇÌEÄA8|8ùû®æ ÄBˇ–KˇÌ)ÄA8~8ú8ΩÄ‚ˇ‹ÅˇÙÄˇ§| ¶ÄHˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ∞;·8êA;√;§ûÄ~É®cûÄûÑ®Ñ8ø8ﬂKˇÏÅûÄ~É®cûÄûÑ®Ñ8ø8ﬂKˇÏUû©> /â@˝ ¯û©^,ä@Âƒû©~/@˘¥8}û©ü®û|¨"û®ﬁ |Ü(û®˛©}'@û©^ |™Hû®ﬁ 8‡û©9 Åcˇ¸Äˇl| ¶ÄKˇpO‡!ÄA8}û©ü®û|¨"û®ﬁ |Ö2û®˛©}'@û©^ |©Rû®ﬁ 8‡û©9 Åcˇ¸Äˇl| ¶ÄKˇpO‡!ÄA8}û©ü®û|¨"û®ﬁ |Ü(û®˛©}'@û©^ |©Rû®ﬁ 8‡û©9 Åcˇ¸Äˇl| ¶ÄKˇpO‡!ÄAûû©û®~ å@˝T8}®üû®æ®ﬂ|Â0û© |®8ûû©> ©^|…Pûù©~ ©ù|Îb9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©ü®û|å"û®æ®ﬂ|Â0û© |ßBû®ﬁ ûû©> ©^|ÈP9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©û ®ü|¨ ù®›|Ö2ù®˝©|ß@û®ﬁ û®˛ 9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}ù©ü®ù|å"û®æ®ﬂ|Â0û© |ßBû®ﬁ©?©_}iPû©û Uá<|ÁX9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©ü®û|¨"û®ﬁ |Ö2û®˛©}'@ù©]|™H©©ü|À`û®˛ TË<|»0û®˛9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©ü®û |å"û®ø®ﬁ |•2û®ﬁ 8‡99 ÅCˇ¸Ä ˇl| ¶ÄJˇpO‡!ÄA8}û©~ ©ü|ã`û®ø®ﬁ |•2û®ﬁ 8‡99 ÅCˇ¸Ä ˇl| ¶ÄJˇpO‡!ÄA8}û©~ ©ü|ã`û®æ ®ﬂ|•0û®ﬁ 8‡99 ÅCˇ¸Ä ˇl| ¶ÄJˇpO‡!ÄA8}û©©û |ãbû®æ ®ﬂ|•0û®ﬁ 8‡99 ÅCˇ¸Ä ˇl| ¶ÄJˇpO‡!ÄAûû©~ ©û|ã`@ÂÑ8}û®ü®æ |Ñ*û®ﬂ®˛ |¶:ûû©©> |»H8‡û©9 ÅCˇ¸Ä ˇl| ¶ÄJˇpO‡!ÄA8}û©~ ©ü|ã`û®ø®ﬁ |•2ûû®˛© |«@8‡û©9 ÅCˇ¸Ä ˇl| ¶ÄJˇpO‡!ÄA8}û©~ ©ü|ã`û®æ ®ﬂ|•0ûû®˛© |«@8‡û©9 ÅCˇ¸Ä ˇl| ¶ÄJˇpO‡!ÄA8}û©©û |ãbû®æ ®ﬂ|•0ûû®˛© |«@8‡û©9 ÅCˇ¸Ä ˇl| ¶ÄJˇpO‡!ÄA8}û©©û|ãbù®Ω|Ö û®ﬂ®˛ |¶:©©?}HHû©~Ul<|ÃPù®˝TË<|ΔB©?©_}iPû©û Uá<|ÁX9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©ü®û |å"û®ø®ﬁ|Â2ù©|®8©?©_}iPû©û UÜ<|ΔX®ˇ©}'@û©^UK<}ãHù®˝TË<|ÏB9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©ü®û |å"ù®Ω®ﬂ|•0®ˇ©}'@û©^ UK<|ÀHûù©û®˝}:0Ëˇˇ99 9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©ü®û |å"û®æ®ﬂ|Â0ù©|ßB©?©_}iPû©û UÜ<|ΔXûù®˛©}'B0Èˇˇ99 9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}ù©ù®ü|å û®ø®ﬁ |•2ûù®˛©}'B0…ˇˇ©_©}äXû®˛ TË<|Ë`99 9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©û®ü|¨ ù®›|Ö2û®ˇ© |ßBûù©>©]}iR0Àˇˇ©ü®ˇ}8û©> U*<|Í@99 9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄAC‡d8}®üû©û®ø|¨(û®ﬁ®ˇ©|Á@9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©ü®û|å"û®æ®ﬂ|•0®ˇ©|«@û®˛9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©ü®û|å"û®ø®ﬁ|•2®ˇ©}'@û©^UK<|ÀH©ü®ˇ}8û©>U*<|Í@9û©>9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}®ü®ø©ü®ﬂ|Ã0û®˛99 9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}®üû©û®ø|¨(®ﬂ®ˇ|Δ8û®˛99 9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}®ü®øû®ﬁ©ü®ˇ|Ï899 9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄA8}û©û®ü|å ®øû®ﬁ®ˇ©|Á@99 9@Åcˇ¸Äˇ\| ¶ÄKˇ`O‡!ÄAÄ Ä!|¶ª°ˇÙO‡ |¶ø¡ˇ¯êî!ˇ∞;·8êA;¿ÅÇˇ‡®l/A¯§Äbˇ¸ÄBˇƒKˇÔ≠ÄA;√û8Ä∞ûÄBˇ‰HÄA8ÄBˇ‰HÄA®ø/Ö@¸û8¿∞ﬁC‡û®ˇ∞˛8ÄBˇ‰KˇﬂyÄA©,à@‰û9 ±>C‡û©_±^8ÄBˇ‰KˇﬂAÄA©/@¯û9Ä±ûC‡û®∞~8 ÄBˇ‰Kˇﬂ ÄA®ü /Ñ@¸û8†∞æC‡û®ﬂ ∞ﬁ8ÄBˇ‰Kˇﬁ—ÄA®ˇ,áAÂû9± C‡û©?±> ÅBˇ‰âj/A˙Pû8~ÄBˇ‡KˇÔ!ÄAû8~ÄBˇ‡KˇﬁMÄAÅÇˇ‡Äl8ûÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAÄ Ä!|¶ª¡ˇ¯O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû8æÄBˇ–KˇÌ˘ÄA8~8ú8ΩÄ¬ˇ‹ÄÊˇÙÄˇ¨| ¶ÄGˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû®æÄBˇ–KˇÌ ÄA8~8ú8ΩÅˇ‹Å(ˇÙÄ ˇ§| ¶ÄIˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øAˇËêî!ˇ†;·8êA;√;§ûÅ^äûÅ~ã©ã®jåûÄûÑûÄæÖ®≈®‰f8}·÷};Ÿ÷}HJmKÄëbˇº»‚ˇ∏…ˇ∞¸'@(ÄBˇÃKˇÒaÄA˝ éˇ¿Lˇ‡L…Bˇ®˝j*Ÿb¸Mé´B8}ûÄûÑ®ÑûÄæÖ®•8⁄8‡û©9 ÅÉˇ¸Äˇl| ¶ÄLˇpO‡!ÄAÄ0Ä!|¶ªAˇËO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Äbˇ‡®É/ÑA¸ƒÄbˇÄBˇƒKˇﬂ•ÄA;√û8†∞æÄBˇ‰KˇﬂâÄA8ÄBˇ‰KˇﬁôÄA®ﬂ,Ü@‰û8‡∞˛C‡û©±Å"ˇ‰âI/ A˙Pû8~ÄBˇ‡Kˇﬁ9ÄAû8~ÄBˇ‡Kˇ€=ÄAÅbˇ‡Äk8ûÅÉˇ¸Äˇî| ¶ÄLˇòO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄÄ!|¶ª·ˇ¸O‡ â$ˇ¸ˇÙAttrRectDescˇ¯ˇÏCircleIntersectDescˇÙˇÏEllipIntersectDescˇˇÙFilledCircleDescˇÏˇÏRectIntersectDescä!#(*,-/168:>@BFHIKMQSUZ\^fhjsuw|~Äàäåòöú†¢§®™¨∞≤¥∏πªΩ¿¡√≈Ÿ⁄‹ﬁ·‚‰Ê˙¸˛ #$&(+,.0DEGILMOQegikoqswy{ÅÉáàäåêëìïôõùü£•ß´≠Ø≥µ∑ªºæ¿ƒ≈«…ËÍÏÔÒˆ¯˝ˇ+-/13579;=?ACEGIKMSUuáµ∑πºæ√≈ Ã¯˙¸˝ˇ !#(*,-/168:;=?DFHIKMRTVWY[dfhikmèùü°•≥µ∑ºæ¿¡√≈… ÃŒ”‘÷ÿ‹›ﬂ·‰ÊËÈÎÌÒÚÙˆ %',.35cjqxû•¨≥∫÷ÿ⁄‹·„ÂÁÏÙ˘˝ "%/36:=@IJQUXY]^cmquxz{Ääéëïóö§®¨Ø¥π√« Œ‘ÿ€ÂÈÌ˘˝ !%)45;?CDISW[\akostyÉáãåëõü¢©≠¥π√«À—ÿ‹·ÎÔˆ˙˚ ,045=KORVW_osyÉáéëõü¶≠≤¡Œ’„Ú˜'+59CGQU_cjoç¨» ÀÕ—”‘÷ÓÚÙ¯ # ' . 3ã¯8MinMax·{a‚{b‰{max„{min¯”88RectIntersect.Calc‚{mx„{my ·{self†{slope‰{x1Ê{x2Â{y1Á{y2¯¢8NewRectIntersect ·{new¯†»8CircleIntersect.Calc†{factor ·{self‚{x0‰{x1Ê{x2„{y0Â{y1Á{y2¯Ô8NewCircleIntersect ·{new¯Ç»8EllipIntersect.Calc‚{a2„{b2 ·{self†{slope2Ê{t°{temp‰{xsignÂ{ysign¯ÿ8NewEllipseIntersect ·{new¯ì 8AttrRect.Read ·{self¯Œ 8AttrRect.Write ·{self¯ä8AttrRect.Draw ‚{f ·{selfx1x2y1y2¯Ç8NewAttrRectcornerlineWidth ·{newshadow shadowWidthtexture¯°8FilledCircle.Read ·{self¯¿8FilledCircle.Write ·{self¯Ü(8FilledCircle.Draw ‚{fÂ{r„{rx‰{ry ·{self¯Δ8NewFilledCircle ·{newtexture¯—8$$